home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Mops 2.7 / Mops source / Toolbox classes / teRecord < prev    next >
Encoding:
Text File  |  1995-12-10  |  1.5 KB  |  87 lines  |  [TEXT/MSET]
  1. \ 15May93 DBH Deleted CalcVScrollValue: and CalcHScrollValue: because
  2.     \ they are not used here.
  3.  
  4. :class teRecord super{ object }
  5. record
  6. {    rect    destRect
  7.     rect    viewRect
  8.     rect    selRect
  9.     int        lineHeight
  10.     int        fontAscent
  11.     point    selPoint
  12.     int        selStart
  13.     int        selEnd
  14.     int        active
  15.     ptr        wordBreak
  16.     ptr        clikLoop
  17. 12    bytes    1terec \ unmapped
  18.     int      just
  19.     int      teLength
  20.     handle  htext
  21. 6    bytes    2terec \ unmapped
  22.     int        crOnly
  23.     int        txFont
  24.     int        txFace
  25.     int        txMode
  26.     int        txSize
  27.     ptr        inPort        \ the wptr
  28. 8    bytes    3terec    \ unmapped
  29.     int        nlines
  30. 0    bytes    lineStarts
  31. }
  32.  
  33. :m lineHeight:    ( -- n )
  34.     get: lineHeight ;m
  35.  
  36. :m #lines:    ( -- n )
  37.     get: nlines ;m
  38.  
  39. :m selStart: ( -- n )
  40.     get: selStart ;m
  41.  
  42. :m selEnd: ( -- n )
  43.     get: selEnd ;m
  44.  
  45. :m getselect: ( -- addr len )    \ returns hilited selection
  46.     ptr: htext selstart: self +  ( addr)
  47.     selend: self selstart: self -  ( len) ;m
  48.  
  49. :m addrLineStart:   ( -- addr)
  50.     addr: lineStarts ;m
  51.  
  52. :m size: ( -- n )
  53.     get: teLength ;m
  54.  
  55. :m setview:    ( l t r b -- )
  56.     put: viewRect ;m
  57.  
  58. :m setdest:    ( l t r b -- )
  59.     put: destRect ;m
  60.  
  61. :m setrects: { l t r b -- } \ sets both the view and destination rects
  62.     l t r b setdest: self
  63.     l t r b setview: self ;m
  64.  
  65. :m @font: ( -- font# )
  66.     get: txFont ;m
  67.  
  68. :m font:  ( font# -- )
  69.     put: txFont ;m
  70.     
  71. :m @fontsize: ( -- fontsize )
  72.     get: txSize ;m
  73.  
  74. :m fontsize:  ( fontsize -- )
  75.     put: txSize ;m
  76.  
  77. :m gettextaddr:  ( -- addr )
  78.     get: htext @ ;m
  79.     
  80. :m WrapIt:
  81.     1 put: crOnly  ;m        \ Nov95 JRF Positive value enables wrap
  82.  
  83. :m noWrap:
  84.     -1 put: crOnly  ;m
  85.  
  86. ;class
  87.